home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / fonts / 0002_53.81 / fnt-0040 / hrgk_c.gsf < prev    next >
Text File  |  1997-04-16  |  10KB  |  218 lines
  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.         exch begin
  16.                 PenWidth setlinewidth
  17.                 Encoding exch get
  18.                 dup CharData exch known not { pop /.notdef } if
  19.                 CharData exch get
  20.         end
  21.         /cd exch def
  22.  
  23.         /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.         true
  25.  
  26.         cd 2 get {
  27.                 exch {
  28.                         dup 32 eq {
  29.                                 pop true
  30.                         } {
  31.                                 82 sub cd 0 get sub
  32.  
  33.                                 dup llx lt {
  34.                                         dup /llx exch def
  35.                                 } if
  36.                                 dup urx gt {
  37.                                         dup /urx exch def
  38.                                 } if
  39.                                 pop false
  40.                         } ifelse
  41.                 } {
  42.                         neg 91 add
  43.  
  44.                         dup lly lt {
  45.                                 dup /lly exch def
  46.                         } if
  47.                         dup ury gt {
  48.                                 dup /ury exch def
  49.                         } if
  50.                         pop true
  51.                 } ifelse
  52.         } forall pop
  53.  
  54.         cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.         setcachedevice
  56.  
  57.         /domove true def
  58.         true
  59.  
  60.         cd 2 get {
  61.                 exch {
  62.                         dup 32 eq {
  63.                                 pop true
  64.                                 /domove true def
  65.                         } {
  66.                                 82 sub cd 0 get sub
  67.                                 false
  68.                         } ifelse
  69.                 } {
  70.                         neg 91 add
  71.                         domove {
  72.                                 moveto
  73.                                 /domove false def
  74.                         } {
  75.                                 lineto
  76.                         } ifelse
  77.                         true
  78.                 } ifelse
  79.         } forall pop
  80.  
  81.         1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.         stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.         10 dict dup begin
  87.         exch /ItalicAngle exch def
  88.         exch /PenWidth exch def
  89.         exch /FontName exch def
  90.         exch /CharData exch def
  91.  
  92.         /FontType 3 def
  93.         /FontMatrix 
  94.                 [1 33 div
  95.                 0
  96.                 ItalicAngle neg dup sin exch cos div 33 div
  97.                 1 33 div
  98.                 0 0] def
  99.         /Encoding StandardEncoding def
  100.         /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  101.         /FontBBox [-10 -10 30 30] def
  102.  
  103.         FontName end exch definefont
  104. } bind def
  105. end             % userdict
  106. %END
  107.  
  108. 150 dict dup begin
  109. /fraction [-11 11 ([BIb)] def
  110. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  111. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  112. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  113. /slash [-7 7 (K^YF)] def
  114. /backslash [-7 7 (KFY^)] def
  115. /underscore [-8 8 (J]Z])] def
  116. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  117. /A [-11 11 (RFK[ RFY[ RIX[ MUVU I[O[ U[[[)] def
  118. /B [-12 12 (LFL[ MFM[ IFUFXGYHZJZLYNXOUP UFWGXHYJYLXNWOUP MPUPXQYRZTZWYYXZU[I[ UPWQXRYTYWXYWZU[)] def
  119. /C [-10 10 (NFN[ OFO[ KFZFZLYF K[R[)] def
  120. /D [-11 11 (RFJ[ RFZ[ RIY[ KZYZ J[Z[)] def
  121. /E [-12 11 (LFL[ MFM[ SLST IFYFYLXF MPSP I[Y[YUX[)] def
  122. /F [-11 11 (XFK[ YFL[ LFKLKFYF K[Y[YUX[)] def
  123. /G [-13 13 (KFK[ LFL[ XFX[ YFY[ HFOF UF\\F LPXP H[O[ U[\\[)] def
  124. /H [-12 12 (QFNGLIKKJOJRKVLXNZQ[S[VZXXYVZRZOYKXIVGSFQF QFOGMILKKOKRLVMXOZQ[ S[UZWXXVYRYOXKWIUGSF OMOT UMUT OPUP OQUQ)] def
  125. /I [-6 7 (RFR[ SFS[ OFVF O[V[)] def
  126. /J [-13 11 (KFK[ LFL[ YFLS QOY[ POX[ HFOF UF[F H[O[ U[[[)] def
  127. /K [-11 11 (RFK[ RFY[ RIX[ I[O[ U[[[)] def
  128. /L [-13 14 (KFK[ LFRX KFR[ YFR[ YFY[ ZFZ[ HFLF YF]F H[N[ V[][)] def
  129. /M [-12 13 (LFL[ MFYY MHY[ YFY[ IFMF VF\\F I[O[)] def
  130. /N [-12 12 (KEJJ ZEYJ ONNS VNUS KWJ\\ ZWY\\ KGYG KHYH OPUP OQUQ KYYY KZYZ)] def
  131. /O [-12 12 (QFNGLIKKJOJRKVLXNZQ[S[VZXXYVZRZOYKXIVGSFQF QFOGMILKKOKRLVMXOZQ[ S[UZWXXVYRYOXKWIUGSF)] def
  132. /P [-13 13 (KFK[ LFL[ XFX[ YFY[ HF\\F H[O[ U[\\[)] def
  133. /Q [-12 12 (LFL[ MFM[ IFUFXGYHZJZMYOXPUQMQ UFWGXHYJYMXOWPUQ I[P[)] def
  134. /R [-11 12 (KFRPJ[ JFQP JFYFZLXF KZXZ J[Y[ZUX[)] def
  135. /S [-10 11 (RFR[ SFS[ LFKLKFZFZLYF O[V[)] def
  136. /T [-10 11 (KKKILGMFOFPGQIRMR[ KIMGOGQI ZKZIYGXFVFUGTISMS[ ZIXGVGTI O[V[)] def
  137. /U [-11 12 (RFR[ SFS[ PKMLLMKOKRLTMUPVUVXUYTZRZOYMXLUKPK PKNLMMLOLRMTNUPV UVWUXTYRYOXMWLUK OFVF O[V[)] def
  138. /V [-11 11 (KFX[ LFY[ YFK[ IFOF UF[F I[O[ U[[[)] def
  139. /W [-12 13 (RFR[ SFS[ IMJLLMMQNSOTQU JLKMLQMSNTQUTUWTXSYQZM[L TUVTWSXQYM[L\\M OFVF O[V[)] def
  140. /X [-12 12 (JXK[O[MWKSJPJLKIMGPFTFWGYIZLZPYSWWU[Y[ZX MWLTKPKLLINGPF TFVGXIYLYPXTWW KZNZ VZYZ)] def
  141. /a [-12 13 (QMNNLPKRJUJXKZN[P[RZUWWTYPZM QMONMPLRKUKXLZN[ QMSMUNVPXXYZZ[ SMTNUPWXXZZ[[[)] def
  142. /b [-12 11 (TFQGOIMMLPKTJZIb TFRGPINMMPLTKZJb TFVFXGYHYKXMWNTOPO VFXHXKWMVNTO POTPVRWTWWVYUZR[P[NZMYLV POSPURVTVWUYTZR[)] def
  143. /c [-11 11 (IPKNMMOMQNROSRSVRZOb JOLNPNRO ZMYPXRSYP^Nb YMXPWRSY)] def
  144. /d [-10 11 (VNTMRMONMQLTLWMYNZP[R[UZWWXTXQWOSJRHRFSEUEWFYH RMPNNQMTMXNZ R[TZVWWTWPVNTKSISGTFVFYH)] def
  145. /e [-10 10 (XPVNTMPMNNNPPRSS PMONOPQRSS SSNTLVLXMZP[S[UZWX SSOTMVMXNZP[)] def
  146. /f [-10 10 (TFRGQHQIRJUKZKZJWKSMPOMRLULWMYP[S]T_TaSbQbPa ULQONRMUMWNYP[)] def
  147. /g [-12 12 (HQIOKMNMONOPNTL[ MMNNNPMTK[ NTPPRNTMVMXNYOYRXWUb VMXOXRWWTb)] def
  148. /h [-13 12 (GQHOJMMMNNNPMUMXNZO[ LMMNMPLULXMZO[Q[SZUXWUXRYMYIXGVFTFRHRJSMUPWRZT SZUWVUWRXMXIWGVF)] def
  149. /i [-7 7 (RMPTOXOZP[S[UYVW SMQTPXPZQ[)] def
  150. /j [-11 11 (NMJ[ OMK[ XMYNZNYMWMUNQROSMS OSQTSZT[ OSPTRZS[U[WZYW)] def
  151. /k [-11 11 (KFMFOGPHQJWXXZY[ MFOHPJVXWZY[Z[ RMJ[ RMK[)] def
  152. /l [-13 12 (MMGb NMHb MPLVLYN[P[RZTXVU XMUXUZV[Y[[Y\\W YMVXVZW[)] def
  153. /m [-11 11 (NML[ OMNSMXL[ YMXQVU ZMYPXRVUTWQYOZL[ KMOM)] def
  154. /n [-10 9 (TFRGQHQIRJUKXK UKQLOMNONQPSSTVT UKRLPMOOOQQSST STOUMVLXLZN\\S^T_TaRbPb STPUNVMXMZO\\S^)] def
  155. /o [-10 10 (RMONMQLTLWMYNZP[R[UZWWXTXQWOVNTMRM RMPNNQMTMXNZ R[TZVWWTWPVN)] def
  156. /p [-12 12 (PNL[ PNM[ VNV[ VNW[ IPKNNM[M IPKONN[N)] def
  157. /q [-11 10 (LVMYNZP[R[UZWWXTXQWOVNTMRMONMQLTHb R[TZVWWTWPVN RMPNNQMTIb)] def
  158. /r [-11 12 ([MQMNNLQKTKWLYMZO[Q[TZVWWTWQVOUNSM QMONMQLTLXMZ Q[SZUWVTVPUN UN[N)] def
  159. /s [-11 11 (SNP[ SNQ[ JPLNOMZM JPLOONZN)] def
  160. /t [-11 11 (IQJOLMOMPNPPNVNYP[ NMONOPMVMYNZP[Q[TZVXXUYRYOXMWNXOYR XUYO)] def
  161. /u [-12 12 (ONMOKQJTJWKYLZN[Q[TZWXYUZRZOXMVMTORSPXMb JWLYNZQZTYWWYU ZOXNVNTPRSPYNb)] def
  162. /v [-10 10 (KMMMONPPU_VaWb MMNNOPT_UaWbYb ZMYOWRM]K`Jb)] def
  163. /w [-13 12 (UFOb VFNb GQHOJMMMNNNPMUMXOZRZTYWVYS LMMNMPLULXMZO[R[TZVXXUYS[M)] def
  164. /x [-13 12 (JQLOONNMLNJQITIWJZK[M[OZQWRT IWJYKZMZOYQW QTQWRZS[U[WZYWZTZQYNXMWNYOZQ QWRYSZUZWYYW)] def
  165. /space [-8 8 ()] def
  166. /Y [-9 9 ()] def
  167. /Z [-10 10 ()] def
  168. /y [-11 11 ()] def
  169. /z [-12 12 ()] def
  170. /zero [-10 10 (QFNGLJKOKRLWNZQ[S[VZXWYRYOXJVGSFQF QFOGNHMJLOLRMWNYOZQ[ S[UZVYWWXRXOWJVHUGSF)] def
  171. /one [-10 10 (NJPISFS[ RGR[ N[W[)] def
  172. /two [-10 10 (LJMKLLKKKJLHMGPFTFWGXHYJYLXNUPPRNSLUKXK[ TFVGWHXJXLWNTPPR KYLXNXSZVZXYYX NXS[W[XZYXYV)] def
  173. /three [-10 10 (LJMKLLKKKJLHMGPFTFWGXIXLWNTOQO TFVGWIWLVNTO TOVPXRYTYWXYWZT[P[MZLYKWKVLUMVLW WQXTXWWYVZT[)] def
  174. /four [-10 10 (THT[ UFU[ UFJUZU Q[X[)] def
  175. /five [-10 10 (MFKP KPMNPMSMVNXPYSYUXXVZS[P[MZLYKWKVLUMVLW SMUNWPXSXUWXUZS[ MFWF MGRGWF)] def
  176. /six [-10 10 (WIVJWKXJXIWGUFRFOGMILKKOKULXNZQ[S[VZXXYUYTXQVOSNRNOOMQLT RFPGNIMKLOLUMXOZQ[ S[UZWXXUXTWQUOSN)] def
  177. /seven [-10 10 (KFKL KJLHNFPFUIWIXHYF LHNGPGUI YFYIXLTQSSRVR[ XLSQRSQVQ[)] def
  178. /eight [-10 10 (PFMGLILLMNPOTOWNXLXIWGTFPF PFNGMIMLNNPO TOVNWLWIVGTF POMPLQKSKWLYMZP[T[WZXYYWYSXQWPTO PONPMQLSLWMYNZP[ T[VZWYXWXSWQVPTO)] def
  179. /nine [-10 10 (XMWPURRSQSNRLPKMKLLINGQFSFVGXIYLYRXVWXUZR[O[MZLXLWMVNWMX QSORMPLMLLMIOGQF SFUGWIXLXRWVVXTZR[)] def
  180. /period [-5 5 (RYQZR[SZRY)] def
  181. /comma [-5 5 (R[QZRYSZS\\R^Q_)] def
  182. /colon [-5 5 (RMQNROSNRM RYQZR[SZRY)] def
  183. /semicolon [-5 5 (RMQNROSNRM R[QZRYSZS\\R^Q_)] def
  184. /exclam [-5 5 (RFQHRTSHRF RHRN RYQZR[SZRY)] def
  185. /question [-9 9 (MJNKMLLKLJMHNGPFSFVGWHXJXLWNVORQRT SFUGVHWJWLVNTP RYQZR[SZRY)] def
  186. /ring [-7 7 (QFOGNINKOMQNSNUMVKVIUGSFQF)] def
  187. /asterisk [-8 8 (RFRR MIWO WIMO)] def
  188. /parenleft [-7 5 (VBTDRGPKOPOTPYR]T`Vb TDRHQKPPPTQYR\\T`)] def
  189. /parenright [-5 7 (NBPDRGTKUPUTTYR]P`Nb PDRHSKTPTTSYR\\P`)] def
  190. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  191. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  192. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  193. /bar [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  194. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  195. /hyphen [-13 13 (IR[R)] def
  196. /plus [-13 13 (RIR[ IR[R)] def
  197. /equal [-13 13 (IO[O IU[U)] def
  198. /less [-12 12 (ZIJRZ[)] def
  199. /greater [-12 12 (JIZRJ[)] def
  200. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  201. /breve [-10 10 (KFLHNJQKSKVJXHYF KFLINKQLSLVKXIYF)] def
  202. /quoteright [-5 5 (RHQGRFSGSIRKQL)] def
  203. /quotesingle [-5 5 (RHQGRFSGSIRKQL)] def
  204. /quoteleft [-5 5 (SFRGQIQKRLSKRJ)] def
  205. /asciicircum [-8 8 (PLRITL MORJWO RJR[)] def
  206. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  207. /ampersand [-12 13 ([NZO[P\\O\\N[MZMYNXPVUTXRZP[M[JZIXIUJSPORMSKSIRGPFNGMIMKNNPQUXWZZ[[[\\Z\\Y M[KZJXJUKSMQ MKNMVXXZZ[)] def
  208. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  209. /dollar [-10 10 (PBP_ TBT_ XIWJXKYJYIWGTFPFMGKIKKLMMNOOUQWRYT KKMMONUPWQXRYTYXWZT[P[MZKXKWLVMWLX)] def
  210. /numbersign [-10 11 (SFLb YFRb LQZQ KWYW)] def
  211. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  212. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  213. /daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
  214. /quotedbl [-9 9 (NFMGMM NGMM NFOGMM WFVGVM WGVM WFXGVM)] def
  215. /.notdef [ 0 0 () ] def         % not defined
  216. end
  217. /Hershey-Greek-Complex 0.6 0 MakeHersheyFont
  218.